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Vítejte ve světě animací! 


PAVEL STŘÍŽ (CZ) 


Abstrakt. Článek představuje základní možnosti animování grafiky ve světě TgXu. 


Klíčová slova. Metapost, animate, PSTricks, Asymptote, TikZ, dvisvgm, svganimation, 
media4svg. 


WELCOME TO THE WORLD OF ANIMATIONS! 


Abstract. The article introduces basic options of animating graphics in the TEX world. 


Keywords. Metapost, animate, PSTricks, Asymptote, TikZ, dvisvgm, svganimation, me- 
dia4svg. 


1. O animacích 


V dobách dřívějších se na webové stránky často dávaly animované gify. Tyto dny 
se složením jednotlivých obrázků a jejich extrakcí z gifů pomáhá ImageMagick či 
odnož 

Druhý oblíbený formát je Flash. Firma Adobe však končí s podporou programu 
Flash Player|v prosinci 2020. Tedy například tyto animace 


se nám hned tak v budoucnu nepodaří otevřít. Na Linuxu lze na přehrání užít 


program |gnash. 


$ sudo apt install gnash 


Co se týče zařazení animace do pdf, tak jednu z možností přes JavaScript 


zminili J. Holeček a P. Sojka v článku Animations in pdfIgX-generated PDF ve 
sborníku TEX, XML, and Digital Typography, Springer, str. 179-191, 2004. O rok 
později to zmiňuje i J. Gilg v článku PDF- Animationen v časopisu Die TgXnische 
Komóědie, Vol. 17, No. 4, str. 30-37, 2005. Podpůrný balíček |interactiveplot| vzniká 
roku 2014 a vzniká balík |AcroTEX, některé části jsou zadarmo, některé nabízené 
za poplatek. 

Obecně se může animace uložit jako (audio)videostopa. K tomu nám slouží 


především balíky £fmpeg a ve starších linuxových distribucích 


$ sudo apt install ffmpeg 


Ve světě open source software existuje nespočet nástrojů na přehrání videa, 


např. mpv,|vlc|a pro Raspberry Pi optimalizovaný 
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$ sudo apt install mpv vlc-bin 


Zařazení audiovideo stop do pdf nabízel TEXový balíček a nyní jeho 
nástupce balíček media9.| Vedle toho umožňují zařadit soubory s Flash animacemi 
a 3D objekty (PRC, U3D). 


$ texdoc media9 movie15 


2. animate v2020-04-25 


Vrcholem v TpXovém světě je balíček (animate,| který umožňuje zařadit animace 
vznikající vrstvením obrázků na sebe, jejich případné časování a výběr kreslených 
částí, parametr timeline (to je výhodné u rozsáhlých obrázků skrz velikost vý- 
sledné animace) a nově pomáhá s generováním animovaných svg. Zkusme si prvně 
získat animace ve čtyřech základních nástrojích dostupných v TEXLive u ukázek 
mimo TgXLive. 


2.1. METAPOST v2.0 


Dokumentaci získáme přes 


$ texdoc metapost metafun-p 


Jedna z nejstarších galerií je od Vincent Zoonekynd z roku 1999. 


Archiv; 
Jednoduchou ukázku vzniku animace přes sérii obrázku nalezneme zde: 
Pokročilé animace hledejme na: 
http: //www-math.univ-poitiers.fr/-phan/animations.html 

https://melusine.eu.org/syracuse/metapost/animations 

Díky knihovně umíme psát kód METAPOSTu přímo v TpXovém do- 
kumentu, zájemce nechť nahlédne na tuto ukázku: 

https://melusine.eu.org/syracuse/luatex/luamplibAnimate 

Při problémech s písmy na úrovni METAPOSTu se doporučuje užít v preambuli 
prologues:=3. Ukážeme si animaci vykreslení celého odstavce ze zmíněné galerie, 
Jen se mi nepodařilo ji vygenerovat přes balíček přímo z TgXového 
dokumentu, podezřívám násobnou inicializaci proměnných. 


https://melusine.eu.org/syracuse/metapost/animations/mehats 
Soubor 010.mp vypadá takto: 


filenametemplate "/j-/43c.mps"; 

verbatimtex/klatex 

documentclassfarticle) 

Vusepackageflmodern) Nusepackage [utf8](inputenc) Nusepackage [Ti] ffontenc) 
beginfdocument) 

etex; 
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picture tex pct, glp pct; numeric glp num, pth num[]; path glp pth[][]; 
tex pct:=btex(Mbeginfminipage)(Vtextwidth)beginfcenter) 
Ukázka animace spojených silW balíčků METAPOST a animate! 
Nendfcenter)Nendfminipage)letex; 
glp pct:=nullpicture; 
string fnt str, txt str, sub str; numeric txt wd; glp num:=0; 
for tkn within tex pct: 
if textual tkn: 
fnt str:=fontpart tkn; txt str:=textpart tkn; txt wd:=0; 
for glp idx=0 upto (length txt str-1): 
sub str:=substring (glp idx, glp idx+1) of txt str; 
pth num[glp num]:=0; 
for sub tkn within glyph ASCII sub str of fnt str 
scaled (fontsize fnt str/1000) xscaled xxpart tkn 
yscaled yypart tkn shifted (txt wd+xpart tkn, ypart tkn): 
glp pth[glp num] [pth num[glp num]] :=pathpart sub tkn; 
addto glp pct doublepath glp pth[glp num] [pth num[glp num]]; 
pth num[glp num] :=pth num[glp numl+1; 
endfor 
glp num:=glp num+1; txt wd:=txt wd+ 
(xxpart tkn)*xpart urcorner (sub str infont fnt str); 
endfor 
fi 
endfor 
numeric bg wd, bg hg; picture bg pct; bg wd:=1280; bg hg:-=300; bg pct:-=nullpicture; 
addto bg pct contour origin--(bg wd, 0)--(bg wd, bg hg)--(0, bg hg)--cycle; 
numeric fg wd, fg hg; transform fit trn; 
fg wd:=xpart(urcorner glp pct-llcorner glp pct); fg hg:=ypart(urcorner glp pct-llcorner 
glp-pct); 
fit trn:=identity shifted -.5b[llcorner glp pct, urcorner glp pct] 
scaled .9min(bg wd/fg wd, bg hg/fg hg) shifted +.5[llcorner bg pct, urcorner bg pct]; 
color bg clr, fg clr; pen fg pen; numeric dot scl; bg clr:=white; 
fg clr:=black; fg pen:=pencircle scaled 2; dot scl:-=4; 
numeric duration, fps, f num; duration:=10; fps:-25; f num:=fps*duration; 
for idx=0 upto (f num/2-1): 
beginfig(idx) 
draw bg pct withcolor bg clr; drawoptions (withcolor fg clr); 
for i=0 upto glp num-1: 
for j=0 upto pth numlil-1: 
path pth; numeric tim; pth:=glp pthli][j] transformed fit trn; 
tim:=arctime 2(arclength pth)/f num*idx of pth; 
draw subpath (0, tim) of pth withpen fg pen; 
draw point (tim) of pth withpen fg pen scaled dot scl; 
endfor 
endfor 
drawoptions (); 
endfig; 
endfor 
end. 
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Pomocný soubor je 010-metapost.tex: 


documentclassfarticle) 

Vusepackagefanimate) 

Vusepackagefgraphicx) 

beginfdocument) 

Nanimategraphics[width=0.75Xtextwidth, controls=all, poster=last]1103f010-)1000)1124) 
Nendfdocument+) 


Spouštíme: 


$ mpost 010.mp 
$ lualatex 010-metapost.tex; lualatex 010-metapost.tex 


Ukázka animace spojených sil 
balíčků METAPOST a animate! 


KOL Ubsl+ 


2.2. PStricks v2.97 a nespočet jeho balíčků 


Galerie najdeme na stránkách programu: 
http://tťug.org/PSTricks/main.cgi?file=packages 
Na animace se častokrát používá pomocný balíček ukázky ze světa 
PSTricks| najdeme přímo v balíčku Z galerií vypíchněme: 
https://tug.org/PSTricks/main.cgi?file=Animation/gif/gif 
https://tug.org/PSTricks/main.cgi?file=Animation/basics 


melusine.eu.org/syracuse/pstricks/pst-solides3d/animations 
$ texdoc multido animate 
Zvláštní kategorii tvoří server s blogy http://pstricks.blogspot.com. Na- 


razil jsem na celou řadu zajímavých balíčků, např. Na serveru je představena 


celá řada vznikajích a pracovních balíčků. Zmíním vybrané. 


Dle vzoru https://geargenerator.com vzniká balíček pst-gears, v poslední 


verzi v0.6. Verze pro 2D je ke stažení na: 


manuel.lugue.free.fr/pst-gears-2020/pst-gear-2020-v0.6.zip 


drive.google.com/drive/folders/1zyXX3w52bm99YPM4wkSd3acJRbcCVs4o 
Verze pro 3D, pst-gearsiiid, ve verzi v3, je dostupná na: 


http://manuel.lugue.free.fr/gearsIIID/pst-gearsIIID-v3.zip 


drive.google.com/open?id=1sSIVv2rgbFHhCkyX VvZboKLIMXxdrv2 
Zaujal mě i balíček pst-crayon, v3.1, ze kterého si přebereme ukázku. 


https://drive.google.com/open?id=0Bw5 RBuOn8-gbkhrVGN1REVRUGS 


Soubor 020.tex vypadá takto: 


documentclass [pstricks]fstandalone+ 
Vusepackagefpst-plot,pst-3d,pst-gears,pst-node) 
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Vusepackage [nomessages](fp) Xmakeatletter 

VdefineGkey [psset]1)ftheta1)(AdefpskOthetaA 113) 

VdefineGkey [psset]1)+theta2)(Vdefipsk©thetaB(*1)) 

pssetftheta1=-90,theta2=90) 

def WpsElasticFixedTwoWheels(pstOobject(psElasticFixedTwoWheels)) 

def psElasticFixedTwoWheels©if((VbegineSpecial0bj 

FPset(ZA)fNpskoZA)VFPset(NZB)4NpskGZB) XFPsetfAmodule)íNpskGm) 

FPeval (MRA) ZA*Vmodule/2)XFPeval(RB)f(ZB*Vmodule/23 XFPeval(N0B)fVRA+VRB 

FPevalf(WRAp)f (NRA+2-2.5+0.2)/2) AFPevalf(WRBp)f (VRB+2-2.5+0.2)/2) 

AFPset[VOMEGAA)1-17 VFPevalfNOMEGABYf (-NOMEGAA) *ZA/NZB] 

FPset ANGLE (NpskOwheelrotation) AFPevalf(VANGLErad)fNANGLE*VFPpi/180) 

FPevalfnombrePoints)ftrunc (2*NANGLE+5,0)) 

FPevalfVthetaA)f (Npsk©thetaA)*FPpi/180) XFPevalfVthetaB)f (Npsk©thetaB) *FPpi/180) 

FPevalfWxA)f0.9*RAp*cos (VthetaA+|OMEGAA*ANGLErad) 

FPevalfVyA)fsin(VthetaA+OMEGAA*ANGLErad) *RAp+0.9) 

FPevalf(WxB)fcos (VthetaB+OMEGAB* ANGLErad) *XRBp+0.9) 

FPevalfVyB)(sin(NthetaB+OMEGAB+ ANGLErad) *RBp*0.9+V0B) 

FPeval(xM) (AxA+VxB)/2+ AFPevalfVyM>£ (VyA+VyB) /23 

VThreeDput [normal=0 0 1](0,0,0)fNpsgrid[subgriddiv=0,gridlabels=0pt] 

rput(0.05,-0.05)fNpstgears [circles=false, polarangle=90, fillstyle=solid, colori=black, 
color2=black]) 

pstgears[circles=false,polarangle=90,fillstyle=solid] 

parametricplot[linecolor=red, plotpoints=nombrePoints, algebraic, 
linewidth=0.1]10)fNANGLErad)í 

(VRAp*0.9*cos (VthetaA+ OMEGAA*t)+XRBpx*0.9*cos (VthetaB+|0MEGAB*t))/2| 
(VRAp*0.9*sin(VthetaA+ OMEGAA*t)+XRBpx*0.9*sin(VthetaB+V0MEGAB*t)+X0B)/2) 

pslinef->)(0,0)(0,1) Npslinef->)(0,0) (1,0) 

pscircle[linestyle=dotted] (0,0) fNRA) pscircle[linestyle=dotted] (0,X0B)4NRBI) 

VThreeDput [normal=0 1 0](AxA,NyA,0) £Xpsline[linewidth=0.1]1-+)(0,0) (0,1) Npnode(0,1)fP1)) 

VThreeDput [normal=0 1 0](XxB,NyB,0) fXpsline[linewidth=0.1]f1-+)(0,0)(0,1)Xpnode(0,1)fP2)) 

ThreeDput [normal=0 1 0] (XxM,NyM,0) £Xpnode(0,1)fP3) Npnode(0,0)fP4)) 

psline [linecolor=blue] (P1) (P2) Xpsline[linecolor=red]f->)(P3) (P4) 
Xpsdot [linecolor=blue] (P3) 

NendeSpecial0Obj)Vignorespaces) Amakeatother 

beginfdocument) 

multidofVi=0+453f17)4beginfpspicture)(-5,-5) (5,6) 

psElasticFixedTwoWheels[Z1=35, Z2=10, m=0.15, viewpoint=-1 -2 2, arrowinset=0, 
arrowsize=0.2, wheelrotation=Ni, linewidth=0.025, colori=yellow, color2=green] 

Nendfpspicture)) 

Nendfdocument) 


Pomocný soubor je 020-pstricks.tex: 


documentclassfstandalone) 

Vusepackagefanimate) 

Vusepackagefgraphicx) 

beginfdocument) 

Nanimategraphics [width=0.5Xtextwidth,controls=all,poster=last]11)4020)1)1) 
Nendfdocument) 


Spouštíme: 
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$ latex 020.tex 
$ dvips 020.dvi 
$ ps2pdf 020.ps 
$ lualatex 020-pstricks.tex; lualatex 020-pstricks.tex 


KOLU Ob 


2.3. Asymptote v2.65 


V galerii programu je blok animací: 

Zaujala mě galerie P. Ivaldiho na s ani- 
macemi: Zde je 
ještě jedna galerie s animacemi: 


www.piprime.fr/developpeur/asymptote/animation-asy asy. 
Vybral jsem následují ukázku. 


http://www.piprime.fr/1208/animation asymptote-fig0090/ 


Dočasně jsem skrz generování gifů vyhodil bezpečnostní pravidla: 


$ cd /etc/ImageMagick-6/ 
$ sudo mv policy.xml policy-old.xml 


Soubor 030.asy vypadá takto: 


size(0,10cm); import graph3; import animation; import solids; 
currentlight.background=black; settings.render=0; 

animation A; A.global=false; int nbpts=500; real g=2/5; real pas=5b*+2*pi/nbpts; 
int angle=4; real R=0.5; pen p=rgb(0.1,0.1,0.58); triple center=(1,1,1); 
transform3 T=rotate(angle,center,center+X+0.25*Y+0.3+*Z); 

real x(real t)freturn center.x+R*cos(g*t)*cos(t);) 

real y(real t)freturn center.y+R*cos(g*t)*sin(t);) 

real z(real t)freturn center.z+R*sin(g*t);) 
currentprojection=orthographic(1,1,1); currentlight=(0,center.y-0.5,2*(center.z+R)); 
triple U=(center.x+1.1*R,0,0), V=(O,center.y+1.1*R,0); 

path3 xy=plane(U,V,(0,0,0)); path3 xz=rotate(90,X)*xy; 

path3 yz=rotate(-90,Y)*xy; triple[] P; path3 curve; real t=-pi; 
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for (int i=0;i<nbpts;++i)ft+=pas;triple M=(x(t),y(t),z(t));P.push(M) ;curve=curve..M;) 
curve=curve..cycle; 
draw(surface(xy),grey); draw(surface(xz),grey); draw(surface(yz),grey); 
triple xyc=(center.x,center.y,0); path3 cle=shift(xyc)*scale3(R)+unitcircle3; 
surface scle=surface(cle); draw(scle, black); 
draw(rotate(90,X)*scle, black); draw(rotate(-90,Y)*scle, black); 
draw(surface(sphere(center,R)),p); triple vcam=1eb*currentprojection.camera-center; 
for (int phi=0; phi<360; phi+t=angle) (bool[] back,front; save(); 
for (int i=0; i<nbpts; ++i) (P[i]=T+P[i];bool test=dot(P[i]-center,vcam)>0; 
front .push(test);) 
curve=T*curve; draw(segment(P,front,operator ..), paleyellow); 
draw(segment(P,!front,operator ..),0.5*(paleyellow+tp)); 
draw((planeproject(xy)*curve)““ (planeproject(xz)*curve)““ 
(planeproject(yz)*curve), paleyellow); A.add(); restore();+) 
A.movie(options="-density 350 -resample 96 -guality 100 -depth 8 -strip"); 


Pomocný soubor je 030-asymptote.tex: 


documentclassfarticle) 

Vusepackagefanimate) 

Vusepackagefgraphicx) 

beginfdocument) 

Nanimategraphics [width=0.5Xtextwidth,controls=all,poster=last]f1)1 030+)10)489) 
Nendfdocument) 


Spouštíme: 
$ asy -vk 030.asy 
$ for soubor in "find -iname 030X*.eps'; do 
> core=$fsoubor/.eps) 
> echo $soubor; ps2pdf $soubor 
> pdfcrop --hires $core; mv $core-crop.pdf $core.pdf 
> done 
$ lualatex 030-asymptote.tex; lualatex 030-asymptote.tex 


KLLOLU JM 
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2.4. TikZ v3.1.5b 
si získal nemalou oblibu. Má rozsáhlou dokumentaci. 


$ texdoc tikz 


Největší galerie, tzv. TpXample, se skládá z příspěvků mnoha uživatelů. 
http://wuww.texample.net/tikz/examples/tag/animations/ 
Zde jsem vybral některé animace z oblasti matematiky a statistiky. 


texample.net/tikz/examples/sine-and-cosine-functions-animation 


www.texample.net/tikz/examples/animated-set-intersection 


www.texample.net/tikz/examples/animated-definite-integral 


www.texample.net/tikz/examples/convolution-of-two-functions 
www.texample.net/tikz/examples/animated-distributions 


TikZ samotný však není vhodný nástroj na 3D grafy, neumí skrývat neviděné 
části, není na to primárně stavěný. S tím do velké míry pomáhá balíček pgfplots, 
aktuálně ve verzi vl.17, a pomocný balíček pgfplotstable, v1.17. 


$ texdoc pgfplots pgfplotstable 


Za zmínku stojí galerie, sourozenec TEXample, server http://pgfplots.net 


Spojil jsem tyto dvě ukázky, 3D graf a animaci. 


pgfplots.net/tikz/examples/bivariate-normal-distribution 


tex.stackexchange.com/guestions/266125/animate-a-pgfplots-3d-plot 
Soubor 040.tex vypadá takto: 


documentclassfarticle) 
pagestylefempty+ 
Vusepackagefpgfplots) 
pgfplotsset(width=8cm, height=6cm, compat=1.17) 
pgfplotssetfcolormap=(whitered)fcolor(0cm)=(white); color(1cm)=(orange!75!red)+) 
beginfdocument) 
Vforeach VmalAngle in £40,50,...,400)14 
Vnewpage 
Vbeginftikzpicture+[ 
declare function = fmu1=1;), declare function = fmu2=2;+, 
declare function = fsigma1=0.5;), declare function = fsigma2=1;), 
declare function = fnormal(Xm,Xs)=1/(2*Xs*sgrt (pi) )*exp(- (x-Xm) 72/(2*Xs72));+, 
declare function = fbivar(Nma,Xsa,Xmb,Xsb) = 1/(2*pi*|sa*sb) * exp(-((x-Nma)72/Xsa72 + 
(y-Vmb)72/Xsb72))/2;+] 
draw (-1.5cm,-1cm) rectangle (9.bcm,5cm); 
beginfaxis)[colormap name=whitered, view=(MmalAngle)í65), enlargelimits=false, 
grid=major, domain=-1:4, y domain=-1:4, samples=26, xlabel=$x 1$, ylabel=$x 2$, 
zlabel=1$P$), colorbar, colorbar style=fat=1(1.25,0.4)), anchor=east, height=2cm, 
title =4$P(x 1,x 2)$))] 
Naddplot3 [surf] (bivar(mul,sigma1,mu2,sigma2)); 
Naddplot3 [domain=-1:4,samples=31, samples y=0, thick, smooth] 
(x,4, (normal (mu1,sigma1))); 
Naddplot3 [domain=-1:4,samples=31, samples y=0, thick, smooth] 
(=1,x, (normal (mu2,sigma2)+); 
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Ndraw [black!50] (axis cs:-1,0,0) -- (axis cs:4,0,0); 
Ndraw [black!50] (axis cs:0,-1,0) -- (axis cs:0,4,0); 
node at (axis cs:-1,1,0.18) [pin=165:$P(x 1)$] £+; 
node at (axis cs:1.5,4,0.32) [pin=-15:$P(x 2)$] (); 
Nendfaxis+ 
Nendftikzpicture)) 
Nendfdocument) 


Pomocný soubor je 040-tikz.tex: 


documentclassfarticle) 

Vusepackagefanimate) 

Vusepackagefgraphicx) 

beginfdocument) 

Nanimategraphics [width=0.75Ntextwidth,controls=all,poster=last]110)4040)1)1) 
Nendfdocument) 


Spouštíme: 


$ lualatex 040.tex; lualatex 040.tex 

$ pdfcrop --hires 040.pdf 

$ mv 040-crop.pdf 040.pdf 

$ lualatex 040-tikz.tex; lualatex 040-tikz.tex 


(KLM Ib 


3. Okular v20.04-1: zobrazení animace 


Vznik animace je jedna věc, jak je zobrazit v pdf je věc druhá. 

Velký problém ve svobodném světě softwaru je, jak takové pdf s animacemi 
zobrazit. Adobe zrušilo podporu Readeru pro Linux v dubnu 2013 u verze 9.5.5 
pro 32bitové počítače. FoxlIt Reader sice animace vzniklé z balíčku [animate| umí 
zobrazit, ale také jen mimo Linux. Prakticky stejně je na tom prohlížeč 
XChange Viewer, 

U odlehčených prohlížečů pdf Evince) jsme 


neměli šanci. Uživatel Linuxu to musí obcházet: míchání 32 a 64bitových aplikací, 
(Wine, přes virtuální stroj či zobrazením pdf na stroji bez Linuxu. 

Poměrně velký mezník znamená Google Summer of Code 2019, kdy Joao Netto 
rozšiřuje Okular a animace vzniklé přes [animate lze spustit. 


https://community.kde.org/GSoC/2019/StatusReports/Jo/C3/4A3oNetto 
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Ani po velkém úsilí, se mi nepodařilo ze zdrojových kódů 


$ git clone https://cgit.kde.org/okular.git 


dostat takovou verzi, která by si s tím poradila (Ubuntu 18.04, Ubuntu 20.04, 
Debian 10). Nepodařilo se mi to ani přes 


$ sudo snap install --edge okular 


Můj nejlepší odhad je, že je nevhodná verze knihovny programu 

Ovšem nahlédneme-li na zařazení nové verze 20.04.1 u distribucí 
máme vyhráno. Nastartujeme-li Ubuntu 20.10, 
Arch či Gentoo, vše běží jako po másle přímo z linuxového repozitáře. 

Opatrně! Je zde však řešení i pro starší distribuce. Na Xubuntu 18.04 jsem 
v /etc/apt/sources.list přidal 

deb http://cz.archive.ubuntu.com/ubuntu/ groovy main universe 
a ostatní vstupní body jsem si zakomentoval. Pak jsem si vzal na pomoc nástroj 
a po určité době hledání a řešení konfliktních balíčků se mi podařilo 
nástroj nainstalovat. Sledujte však pozorně, co chce nástroj odinstalovat, aby to 
nebyla většina linuxové distribuce. 


$ sudo apt update 
$ sudo aptitude install okular 


Několik postřehů. Animace nejedou přes prezentační režim, ale dá se ze Settings 
skrýt Toolbar, Navigation Panel a Page Bar a přejít do celoobrazovkového režimu 
přes Ctrl+-Shift+F. 

Po nakliknutí Show Forms úvodní mávající smajlík balíčku animate|se rozběhne 
až po zarolování na jinou stranu a zpět. Naopak při Hide Forms zůstává stále 
aktivní. 

Vylepšený Okular nabízí zobrazení pdf, ps, djvu, tiff, chm i formátu epub. 
Může se hodit i na zobrazení textových souborů, například datových, aux a log 
souborů při běžné práci. U svých experimentů jej používám i na zobrazení dvi 
souborů. 

Na zobrazení swf či 3D objektů v prohlížeči pdf si ve svobodném softwarovém 
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